home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00007Series_68.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  598 b   |  23 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   put "27" into field "whmodnum"
  4.   put "9" into field "bemodnum"
  5.   put EMPTY into field "comodnum"
  6.   put EMPTY into field "whexmodnum"
  7.   put EMPTY into field "bearingoption"
  8.   puppetTransition(47, 1, 8)
  9.   if field "diamodnum" contains "12" then
  10.     put "37" into field "whmodnum"
  11.   end if
  12.   if field "diamodnum" contains "6" then
  13.     put "26" into field "whmodnum"
  14.   end if
  15.   if field "diamodnum" contains "8" then
  16.     put "27" into field "whmodnum"
  17.   end if
  18.   if field "diamodnum" contains "10" then
  19.     put "27" into field "whmodnum"
  20.   end if
  21.   VBSEARCH()
  22. end
  23.